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— South Bay Atari Computer Enthusiasts 


Mtari MACRO ASSEMRLER/EDITOR... a few comments 
by dames A. Jenga 


Well, it’s finally here! It’s just what we’ve been waiting for! for 
is it?) 


Actually the Macro Assembler is pretty neat, But not being an expert 
and extremely experienced assembly lanquage programmer (despite what 1. 
tell everyone) I had quite a bit of difficulty understanding the : 
instruction manuals (not nearly as user-friendly as the manual with the 
Assembler /Editor cartridge). Unfortunately source code written with the 
Assembler /Editor cartridaqe aor the OSS EASMD assembler is not entirely 


“\ compatable! The differences are few however and easily remedied (more 


eS or less). 


A ee i me eer 


ee ee Rp ke ee ee 


I was delighted when I saw that a whale chapter was devoted toa 


discussing these differences. However... when I flipped the pages to 


that chapter I discovered that someane 
all but one of the pages of this invaluable chapter... 


CY the competition) had stolen 
literally torn 


them from my manual! I then noted that there were no pages missing (the. 
page numbers were consecutive) and came to the stark and ugly 
realization that this necessary and strategic chapter was only one-half 


page long!!! 


Oh weli, I thought, at least this demi-page was packed full af 
information. Guess again. All I learned was what the differences were, 
but noe suggestions ar examples of how to circumvent these differences 
(in all fairness, most of the ’fixes” were obvious). The biagest 
incompatability is the fact that the ASSEMBLER will not accept source 
code with line numbers! Oh Boy, how da get rid of all those Line 
numbers? Well, nmaturally, I chase the hard way fat least I’m 
consistent). I used the handy EDITOR command known as *Search and 


Replace” and automatically replace all numbers beaqinning with a *@ ang 


ending with a ”® * following, with *nothing’® thus stripping aff most of 
the line numbers, and a few numbers I had placed in comments. Only 
later did I come to find that I merely had to ’Enter’ the source code 
using the cartridge and then “PRINT? that code to disk using 4 
different file name (e.g. ENTER#D:TEST.SRC ...then...PRINT#D: TEST.PRT?). 
‘If you then power down and boot up the Macro Assembler and read in 
TEST.PRY with the EDITOR you will be pleasantly surprised to find that 


all the line numbers are gone! 


Now, a few other comments. First, because of the not short time 
required to load the EDITOR or ASSEMBLER programs each time any change 
is made, it is nice (but not necessary) to have two disk drives. Also, 
it would be very frustrating to write short programs (Cand debug them) 
using this device (not to mention the fact that there is no debugger 
like the cartridge has). 


There are a couple other littie known, and nat documented, facts. 
First, @ macro cannot be greater than 254 bytes long (however each 
macra may call another macro, thus effectively allowing you to work 
with much longer macros). Secondly, the Gbject file generated oan 
assembly is not of the same format as those generated by the cartridge 
(maturally'!). These files contain four extra bytes (desiqnating the 
starting and ending addresses for each data block) written every 2355 
bytes fright in the middle of the data!). Therefore, if you’re going ta 
read in OQbject files byte-by-byte, don’t forget to discard 4 bytes 
every 255 bytes. 


On the POSITIVE SIDE, boy is this Assembler fassttt! A program that 
used ta take 45 minutes ta assemble using the GSS EASMD assembler, 
takes less than 6 minutes to assemble now!!! That’s great!!! You are 
also allowed to Include multiple source files if you have a very long 
pragram. In addition, the Editor, which is very powerful and easy ta 
use, will even allow you to use saurce files that are too long to fit 
in memory at one time...reading in a part at a time. There are also 
many Search aptions including search & replace (with or without user 
verification). 

The final verdict: It’s GREAT...g@et it...-6but it’s not for beginners. e- 
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FORTH NEWS 


FORTH is a great language to write a game in. Atari’s Battlezone game was writ- 
ten in FORTH. Raster Blaster was supposely written in FORTH. Automated Simula- 
tions is working on their second arcade game in the FORTH language. The develop- 
ment time is 1/4 that of assembler according to Norm Lane from Automated Simula- 
tions. 


How many FORTHS are there that run on the Atari? The following is a current 
list with a short description. All of these FORTHS have Atari I/O, sound and simple 
graphics capabilities along with some sort of screen editing. They all include a FORTH 
assembler. 


1. QS 1.4S FORTH from Quality Software.( $80 ) This was first available 
FORTH for the Atari and the FORTH I. started with. It does not have 
player missile graphics but includes good documentation. I implemented 
Tiny Pascal with turtle graphics in this FORTH without any problems. 


2. PNS FORTH ( Pink Noise Studios FORTH ) $80 This FORTH include 
many extra features. These include RS-232 support,turtle graphics, player 
missile movement during vblank, and multi-tasking routines. 


3. APX fig FORTH Rev 2 ( $40 ) Supports RS222 port I/O. Documenta- 
tion is very minimal. 


4. Val FORTH - ( $75 base package-includes screen editor) Player missile 
graphics and other packages are sold separately( see colorful ads in 
Creative Computing ). If one gets all the packages, it becomes a very 
expensive total package. 


5. Fig FORTH 1.5 - The original version was by Steve Calfee and is known 
as "Atari Coin-op Forth”. It is available from the Bay Area Users Group for 
$7 ( 2 disks) 4029 Payne St. San Jose, Ca. 95117. It also has PM graphics 
and elaborate printer formats. 


6. Mesa FORTH - is coresident with DOS. This means that its files are 
DOS compatible. This is very important. Includes three disks $12 from 
Austin ACK Dave Mann, 7108 Spurlock Drive, Austin Tx 78731. 


The Denver AMIS now has PNS-FORTH screens available for downloading to DOS 
formatted disks. You have to down load FORTHDOC and FORTHDWN. Read the — 
documentation and manually type in the source screens. After the source screens are 
entered, all other PNS screens can be directly transferred to a PNS disk. Other 


FORTH screen download programs for QS, 1.45, and APX will soon be available, as 
well as a smart terminal program written in FORTH. The phone number is 1-303- 


758-6233. 


oe 


| The following two programs are courtesy of Cy Edmunds of Rochester, NY. 
Metronome is in our library and Flashcards is listed on the next page. 


Metronome: electronic drums. The program asks for a sequence length and an 
accent for each beat in the sequence. Examples: 


3/4 tume (oom-pah-pah): 
Sequence Length = 3 


Accents = 1-3 3 
4/4 time: 

Sequence Length = 4 
peceins se: 3 
Twist Beat: 

Sequence Length = 8 


Accents = 0-0 1) 1-6-8 1°80 


Bossa Nova: 
Sequence Length = 8 
Peects: -s ) o sd ee) I 


Visual indication of the current position in the sequence is provided by a 
moving ">" sign. The number of beats per minute is increased by the SELECT 
button and decreased by the START button. The OPTION button can be held 
down to temporarily suspend playing. 


The count-down timer routine is the same one used in FlashCards. 


FlashCards: for practicing elementary math facts. Menu-driven selection of 
operation (addition, subtraction, multiplication, and division), smallest and 

biggest mumbers to be selected, number of problems. and the delay time. The 
assembly routine used for driving the count-down timer is something I got out of 
a recent issue of Compute magazine. 


A NUR ARAN CANS MORM 11) Laddd Lstilis LO UCTOUW LLVCTse Video Characters, 
950 IF NERR>O THEN 970 


“10 REM FLASH CARD PROGRAM 960 ? #6:? #6;"NICE GOING!" 
20 DIM MENUS(46),C$(1),AS(1),BUZZ$(1) 970 Z=USR(ADR( TIMERS) ,60*VALUE(S5)) 
30 DIM JMP(6),VALUE(6),BUFS(5) ,OPS(4) 980 IF PEEK(554)<>0 THEN 980 
40 DIM FRMTS(6) 990 NERR=0:GOTO 500 
: 2000 REM OPERATION CHANGE 
2010 GRAPHICS 2:? #46 


MSDELAYNO CHANGE" 


) MENUS="OPERATIONSMALLESTS8IGGESTPROB 
- 


BUZZS=CHARS (253) :OPS="4+-*/" 2020 FOR J=1 TO 4 
70 FOR J=1 TO 6:READ LABEL 2030 ? #6,0P$(J,J):NEXT J 
80 JMP(J)=LABEL:NEXT J 2040 ? "WHICH":INPUT CS 
90 DATA 2000,2200,2200,2200,2200,2400 2050 FOR J=1 TO 4 
100 FOR J=1 TO 6:READ DEFAULT 2060 IF C$=OP$(J,J) THEN 2080 
110 VALUE(J)=DEFAULT:NEXT J 2070 NEXT J:? BUZZ$:GOTO 2010 


120 DATA 43,4,9,10,5,32 
130 MENU=4000:00PS=5000:MARGIN=15 
140 FRMTS="CIIIIC" 

150 DIM TIMERS(20),CODE(9) 


2080 
2200 
2210 
2220 


VALUE(1)=ASC(C$):RETURN 
REM VALUE CHANGE 2¢=NM<<=5 
GRAPHICS 2:? #6 

? #6;"PLEASE INPUT" 


160 FOR J=1 TO 20:READ BYTE 2230 ? #6;" NEW VALUE" 
170 TIMERS(J)=CHRS(BYTE):NEXT J 2240 INPUT NEWVAL : VALUE (NM) =NEWVAL 
180 DATA 104,104,170,104,168,208,4 2250 RETURN 


190 DATA 138,208,1,96,169,3,141,42,2 
200 DATA 82,92,228,96 © 
210 FOR J=0 TO 9:READ C 


2400 
2410 
4000 


REM NO CHANGE 
RETURN 
REM MENU ROUTINE 


220 CODE(J)=C:NEXT J 4010 GRAPHICS 2:? #6 
230 DATA 50,31,30,26,24,29,27,51,53,48 4020 LM=LEN(MENUS):NM=0 

240 A=0:NERR=0 4030 FOR JM=1 TO NM. 

500 REM START A NEW GAME 4040 CS=MENUS(JM,JM) 

510 GOSUB MENU:IF NM<6 THEN 510 4050 IF C$<"A"-OR C$>"Z" THEN 4070 
620 CS=CHRS$(VALUE(1)): 4060 NM=NM+1:IF NM>1 THEN GOSUB 4200 
530 FOR OP=1 TO 4 4065 ? #6;" : 

540 IF CS=OPS(OP,OP) THEN 560 4070 ? #6;C$;:NEXT JM 


550 NEXT OP 4080 NM=NM+1:GOSUB 4200 
S, FOR PROB=1 TO VALUE(4) 4090 ? "WHICH";:INPUT A$ 
5 PLUS=1 4100 AS=CHRS(ASC(AS) +128) 
970 V1=VALUE(2):V2=1+VALUE(3)-V1 4110 NM=0:FOR JM=1 TO LM 
580 X=V1+INT(V2*RND(0)) 4120 CS=MENUS(JM,JM) 
990 Y=V1+INT(V2*RND(0O)) 4130 IF C3<"A" OR CS>"Z" THEN 4150 
600 GOSUB 6000 4140 NM=NM+1:IF CS=A$ THEN 4160 
700 Z=USR(ADR( TIMERS) ,60*VALUE(5)) 4150 NEXT JM:? BUZZ$:GOTO 4010 


710 IF PEEK(554)=0 THEN 860 
720 C=PEEK(764):IF C=255 THEN 710 


4160 
4200 


GOTO JMP(NM) 
NM1=NM~-1 


730 REM CHARACTER INPUT 4210 IF FRMTS(NM1,NM1)="C" THEN 4250 
740 POKE 764,255:IF C<>52 THEN 800 4220 BUFS=STRS(VALUE(NM1)) 

750 POKE 85,PEEK(85)-1 4230 POSITION MARGIN+1-LEN(BUFS) ,NM1 
760 LOCATE PEEK(85),5,J 4240 ? #6;BUFS:RETURN 


770 A=INT((A-J+48)/10) 
780 POKE 85,PEEK(85)-1:? #6:" ": 
790 POKE 85,PEEK(85)-1:GOTO 710 
800 IF C<>14 THEN 804 

802 PLUS=-1:? #6;"-"::GOTO 710 
804 FOR J=0 TO 9 

810 IF C=CODE(J) THEN 830 

820 NEXT J:GOTO 710 

830 ? #6;CHRS(48+J); 

840 A=10*A+J 

850 GO TO 710 

860 REM TIMED OUT 


4250 
4260 
5000 
9010 
5020 
9030 
5040 


5050 
6000 
6010 
6015 
6020 


POSITION MARGIN,NM1 

? #6;CHRS(VALUE(NM1)):RETURN 
Ft 4 INCORRECT ANSWER 

? BUZZ$:NERR=NERR+1 

GOSUB 6000:? #6:ANS 
Z=USR(ADR( TIMERS) ,60*VALUE(S5)) 
IF PEEK(554)<>0 THEN 5040 


RETURN 

REM PROSLEM OUTPUT ROUTINE 
GRAPHICS 2+16:POSITION 3,5 
POKE 764,255 : 

ON OP GOTO 6030,6050,6070,6090 


6030 £ Fos" + Weis See 
‘SF IF PLUS*A<>ANS THEN GOSUB OOPS 6040 ANS=X+Y:RETURN 
890 A=0:HEXAT PROB 6050 ? #O;X+Y;:" Se ini ws 
900 REM LAST PROSLEM DONE 6080 ANS=¥: RETURN 
910 GRAPHICS 2+16 6070 ? #6:X;" # "iy." 2m, 
6080 ANS=X*Y:RETURN 


920 ? #6;NERR;" ERROR"; 
930 IF NERR<>1 THEN ? #6;"S"; 
940 ? #6;" OUT OF ";VALUE(4) 


* 
ee WR es ee es eS eee 


6090 
6100 


? #6;X*Y:" / ee a: = . 
ANS=Y:RETURN 


. 


CREATING A CASSETTE BOOT TAPE ~ 
FROM AN GRIECT FILE ON DISK 


by James A. Jenga 


If you have ever wanted to make a cassette boot tape out of a program 
desiqnecd ta run on a computer with only &@ or 16 K af memory, you have 
probably discovered that you can’t fave your program residing in the 
lower reaches of RAM (e.q. around $2509) and then read in and run your 
Ssuper—-duper cassette boot tape maker program fram disk because by loading 
your program inta low RAM you have successfully, although unwittingly. 
written over (and mercilessly destroyed) a goodly part af the RAM 
resident part @f DOS. Oh what can I da? 


Well, the solution involves first assembling your program (with the 
aporapriate low RAM starting address) onto DISK and then reading the 
ohject code (from the Object file you just created) into a string array; 
and then vwriting this string anto the cassette (scunds easy doesn’t 
it..-.<Well it is, just watch). 


Before you assemble that masterwork of yours, reset the origin address 
GS bytes earlier (does that make any sense?) than it was and add the 
following 8 bytes worth of information at the beginning of the program 
(right after the ORIGIN instruction that you just subtracted 8 fram and 
reset). The first byte should be *@*; the second should equal the # of 
128 byte blocks af code encompassing the object program (if you end up 
with a fractional black count it as a whole 128 Byte block); the next 2 
bytes should cantain the law and high byte address of where you want the 
ebject code fincluding these @ info bytes) to be loaded; the mext 2 bytes 
are the low and high address of your initialization routine (if you dan’t 
have need for one simply supply the address of a ninth byte you can 
insert which would just be a RTS instructions the next byte should be a 
CLO instruction; the next byte should be a RTS instruction. 


Once you finish assembling this modified source program onta disk, 
insert the Basic cartridge and run the following program: 


1@ OPEN #1,4,8, "“D:NAME.OBJI"” 

24 FOR X=1i TO 6 

of GET #1,Y 

4G NEXT X 

o4 DIM AS(??PPISREM make this as large as your Gcbhject code is 
64 X=a: TRAP 8a 

7H X=X4+12:GET #1,Y:ASB(X, XI=CHRSCY) :GOTQ 7h 
84 CLOSE #1 

7S OPEN #1,06, 128, “Cs.” 

19M PRINT #1:A%;5 

1196 CLOSE #1 


Well, you should now be the proud possessor of a boot tape of your 
outstanding machine language program that can load into the lower abysses 
of RAM. Good luck. e 


ATARI USERS GROUP SFECIALS FROM HW ELECTRONICS 


FOR THE MONTH OF ~ 


SEPTEMBER 19982 


i} Fercom Master Drive for Atari 


* Oreration in either single density (88K) 2s ee 
double density (170K) | 
K single cr dusl head carability 
* First drive contains four drive controller — 
OU Seve on the cost of additional drive units 


fm order to run the Percom Disk Drives vou must heve LOS 2 
from Atari. 


RFO4O-Si Master Disk Drive 
Cats No. S815 | Aterisy BAK ; $649.06 


23 Verbatim 5 1/4" Diskettes 
Cate No. 1147 soft sectors Res, box $24.95 
3 SEU/DD -—- Bsetafile 


S32: Fite “nn File 5 174°: bist Frotector Cases 

Cat. No. 2956 holds 3060 diskettes | $19.95 
4) Pose Mari 

Cat No. FEES Ataris isk, ROM $34.95 
J) Printer Ferer 

Cats Now 14564 $0 lbs $24.95 


9 L/2°ws 1/2" sprocket 


20S 


